Відокремлений структурний підрозділ Золочівський коледж
Національного університету «Львівська політехніка»
Циклова комісія природничо-математичних та комп’ютерних дисциплін
ЗВІТ
Про виконання лабораторних робіт
з дисципліни
«Алгоритмізація та програмування»
Студента 2 курсу ОПС-2 групи
Напряму підготовки
6.050101 Комп’ютерні науки
Спеціальності
5.05010101 Обслуговування програмних систем та комплексів
Бомк Б.В.
Викладач Чіпак І.П.
м. Золочів – 2016 рік
Практична робота №5
Тема. Використання циклів. Програмування обрахунків за ітераційними формулами.
Мета: вивчення циклів та їх застосування в прогамному середовищі Delphi.
Хід роботи
Отримати допуск до роботи у викладача, давши відповідь та теоретичні запитання.
Написати програми до завдань та реалізувати їх у середовищі Delphi
Скласти звіт,у якому зобразити теоретичні відомості, виконані програми та результати виконання програм,відповіді на контрольні питання та висновки до лабораторної роботи.
Захистити звіт у викладача.
Завдання 1.
Протабулювати функцію y:=sin(2*x)-2*cos(x) з кроком 0.2 на відрізку від 1 до 20.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActnList, StdCtrls, ComCtrls, Menus;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Memo1: TMemo;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
procedure N6Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.N6Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N2Click(Sender: TObject);
var x,y,h,a,b:real;
cod:integer;
s1,s2:string;
begin
label1.Caption:=' y:=sin(2*x)-2*cos(x)';
val(edit1.Text,a,cod);
val(edit2.Text,b,cod);
val(edit3.Text,h,cod);
x:=a;
while x<=b+h/2 do
begin
y:=sin(2*x)-2*cos(x);
str(x:10:2,s1); str(y:10:2,s2);
memo1.Lines.Add(s1+s2);
x:=x+h;
end;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Memo1.Clear;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
ShowMessage ('Протабулювати функцію y:=sin(2*x)-2*cos(x) з кроком 0.2на відрізку віл 1 до 20.');
end;
procedure TForm1.N9Click(Sender: TObject);
begin
ShowMessage (‘Автор програми Бомк Богдан’);
end;
end.d.
[Додаток 1]
Завдання 2.
Написати програму, яка здійснює переведення цілого додатного числа із десяткової системи у двійкову та в довільну систему числення з основою від 2 до 9.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
Public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var x,y:longint;
begin
x:=strtoint (edit1.Text);
label8.caption:=' ';
while x>0 do
begin
y:=x mod 2;
x:=x div 2;
label8.Caption:=inttostr(y)+label8.Caption;
end
end;
procedure TForm1.Button2Click(Sender: TObject);
var x,y,osn:longint;
begin
x:=strtoint (edit2.Text);
osn:=strtoint (edit3.text);
if osn<2 then s...
